*codename(weld,100)
//
*defineattribute(WELD,1,integer,none)
*defineattribute(systemid,2,entity,none)
*defineattribute(esetid,3,entity,none)
*defineattribute(nsetid,4,entity,none)

//
*groups(1,1,"WELD")
*beginmenu()
*menustring("Please select system eset and nset ")
*menulineend()

*menufield(WELD,integer,id,8)
*menufield("system",entity,$systemid,0)
*menuentitytype(systems)

*menufield("eset",entity,$esetid,0) 
*menuentitytype(sets)
*menuentitysubtype(elems)

*menufield("nset",entity,$nsetid,0) 
*menuentitytype(sets)
*menuentitysubtype(nodes)
*menulineend()

*endmenu()
*output()    


